﻿Public Class BEhemograma

#Region "Declaración de variables"

    Private codParametro As Integer
    Private nombre As String
    Private valorMax As Integer
    Private valorMin As Integer
    Private unidad As String

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodParametro As Object, _
            ByVal pNombre As Object, _
            ByVal pValorMax As Object, _
            ByVal pValorMin As Object, _
            ByVal pUnidad As Object)

        Me._codParametro = pCodParametro
        Me._nombre = pNombre
        Me._valorMax = pValorMax
        Me._valorMin = pValorMin
        Me._unidad = pUnidad

    End Sub

    Public Property _codParametro() As Integer
        Get
            Return Me.codParametro
        End Get
        Set(ByVal value As Integer)
            Me.codParametro = value
        End Set
    End Property

    Public Property _nombre() As String
        Get
            Return Me.nombre
        End Get
        Set(ByVal value As String)
            Me.nombre = value
        End Set
    End Property

    Public Property _valorMax() As Integer
        Get
            Return Me.valorMax
        End Get
        Set(ByVal value As Integer)
            Me.valorMax = value
        End Set
    End Property

    Public Property _valorMin() As Integer
        Get
            Return Me.valorMin
        End Get
        Set(ByVal value As Integer)
            Me.valorMin = value
        End Set
    End Property

    Public Property _unidad() As String
        Get
            Return Me.unidad
        End Get
        Set(ByVal value As String)
            Me.unidad = value
        End Set
    End Property

End Class
